home *** CD-ROM | disk | FTP | other *** search
/ BlastDOS / [DOS_Application]_BIT_Software_-_BitCom_3.58c_-_Distribution_Disks.zip / FUNKEY.ACT < prev    next >
Text File  |  1990-06-01  |  796b  |  30 lines
  1. trace(0)
  2. @a = funkey                     { get funckey }
  3. if ( @a = -1 ) goto :quit
  4. if ( substr(@a, 1, 1 ) = "D" ) goto :dfunkey; else goto :hfunkey
  5.  
  6. :dfunkey
  7.     @c = strseq("$7F", "255")
  8.     if ( @c = "" ) goto :quit
  9.     @c = concat("$22", @c)
  10.     @c = concat(@c, "$22")
  11.     if ( @a = "DF1" ) @f1 = "@c"
  12.     if ( @a = "DF2" ) @f2 = "@c"
  13.     if ( @a = "DF3" ) @f3 = "@c"
  14.     if ( @a = "DF4" ) @f4 = "@c"
  15.     if ( @a = "DF5" ) @f5 = "@c"
  16.     if ( @a = "DF6" ) @f6 = "@c"
  17.     if ( @a = "DF7" ) @f7 = "@c"
  18.     if ( @a = "DF8" ) @f8 = "@c"
  19.     if ( @a = "DF9" ) @f9 = "@c"
  20.     if ( @a = "DF10" ) @f10 = "@c"
  21.     goto :quit
  22.  
  23. :hfunkey
  24.     @c = strseq("$0d", "9")
  25.     if ( @c = "" ) goto :quit
  26.     @r = concat( @c, " ")
  27.     @r = concat(@r, @a)
  28.     helpline("@r", "A")
  29. :quit
  30.